home *** CD-ROM | disk | FTP | other *** search
/ Directorty Opus 5 - Magellan 2 / Opus 5 - Magellan 2.iso / Extras / wolledopus / c / DC < prev    next >
Encoding:
Text File  |  1997-10-20  |  897 b   |  43 lines
  1. /*
  2. $VER: DC 0.98 (20.10.1997) © Marco Wollkopf
  3. E-Mail: Marco.Wollkopf@t-online.de
  4. Homepage: http://home.t-online.de/home/Marco.Wollkopf
  5. */
  6.  
  7. signal on error
  8. options results
  9.  
  10. /*-- Port holen --*/
  11. if show("p","DOPUS.1") then
  12.    address DOPUS.1
  13. else do
  14.    say "DirectoryOpus Port nicht gefunden"
  15.    exit
  16. end
  17.  
  18. /*-- Parser --*/
  19. parse arg file
  20. file=strip(strip(file,'b','"'),'b',' ')
  21.  
  22. if file~="" then do
  23.    if file="?" then do
  24.       call error
  25.    end
  26.    else do
  27.       file= '"'||file||'"'
  28.       command doubleclick file
  29.      end
  30. end
  31. else
  32.    call error
  33. exit
  34.  
  35. /*-- Fehler --*/
  36. error:
  37.   SAY "DC (DoubleClick) V0.98, Teil des WolleDOpus Paketes"||D2C(10)||"Simuliert einen DOpus Doppelklick auf die angegebene Datei"||D2C(10)||"Copyright © 1997 Marco Wollkopf"
  38.   SAY D2C(10)||"Optionen: FILE/A"
  39.   SAY D2C(10)||"FILE: Datei, auf die das Kommando angewendet werden soll"
  40.   SAY D2C(10)||"Hilfe mit ?"
  41. exit
  42. return
  43.